﻿Imports Microsoft.Office.Tools.Ribbon

Public Class Ribbon1

    Private Sub ShowOrHideTaskPane_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles ShowOrHideTaskPane.Click
        For Each c In Globals.ThisAddIn.CustomTaskPanes
            c.Visible = Not c.Visible
        Next
    End Sub

End Class
